home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 1 / Cream of the Crop 1.iso / UTILITY / TASEXAM6.ARJ / RS.TAS < prev    next >
Text File  |  1991-10-29  |  338b  |  13 lines
  1. #index SP-500
  2. #MAX_QUOTES 100
  3. RS : ARRAY; { Relative Strength Array}
  4. OFS : ARRAY;    { Initial Offset array}
  5. RS = MULBY(DIV(C,INDEX),100); 
  6. SET(OFS,RS[1]); { Set OFS to first day's quotient}
  7. RS = SUB(RS,OFS);   { subtract ofs}
  8. OPENGRAPH(2);
  9. GRAPH(1); { Graph ticker Price}
  10. GRAPH(RS); { Graph Relative Strength}
  11. CLOSEGRAPH();
  12.  
  13.